Release 10.1A: OpenEdge Development:
Progress Dynamics Administration

Thin SmartObject rendering

SmartObject rendering and initialization are expensive. Running SmartObject instances involves method library include files, prototype include files, property include files, extended class include files and logic to set various properties based on static preprocessor values. The existence of this code adds to the size of the compiled r-code and to the cost of execution.

Thin versions of various Progress SmartObjects™ exist that contain less r-code than their full counterparts. The thin versions exclude logic from their compilations that are not required for most dynamic objects, such as prototype and custom include-file inclusion and logic to create ADMProps.

Thin SmartObject rendering procedures exist for the following dynamic objects:

Dynamic SmartDataObject
Dynamic lookup
Dynamic combo
Dynamic browser
Dynamic viewer

These thin rendering procedures include their dynamic object and rely on preprocessor definitions to optimize the rendering information. There are two preprocessor definitions specific to thin SmartObject rendering:

ADM-EXCLUDE-PROTOTYPES — Every ADM property include file contains definition checks to exclude the compile of the ADM prototype include file. For example:

&IF DEFINED(ADM-EXCLUDE-PROTOTYPES) = 0 &THEN &IF "{&ADMSuper}":U EQ "":U &THEN {src/adm2/combprto.i} &ENDIF &ENDIF

ADM-EXCLUDE-STATIC — Every ADM property include and class include file contains definition checks to exclude the compilation of code only required for static objects. For example:

&IF DEFINED(ADM-EXCLUDE-STATIC) = 0 &THEN     {src/adm2/custom/datacustom.i} &ENDIF &IF DEFINED(ADM-EXCLUDE-STATIC) = 0 &THEN IF NOT {&ADM-LOAD-FROM-REPOSITORY} THEN   RUN start-super-proc("adm2/appserver.p":U). &ENDIF &IF DEFINED(ADM-EXCLUDE-STATIC) = 0 &THEN IF NOT {&ADM-PROPS-DEFINED} THEN DO: &IF "{&ADMSuper}":U = "":U &THEN   ghADMProps:ADD-NEW-FIELD('ObjectLayout':U,'CHARACTER':U, 0, ?, '':U).   ghADMProps:ADD-NEW-FIELD('LayoutOptions':U,'CHARACTER':U, 0, ?, '':U).   ghADMProps:ADD-NEW-FIELD('ObjectEnabled':U,'LOGICAL':U, 0, ?, no).   ghADMProps:ADD-NEW-FIELD('LayoutVariable':U,'CHARACTER':U, 0, ?, '{&LAYOUT-VARIABLE}':U).   ghADMProps:ADD-NEW-FIELD('DefaultLayout':U,'CHARACTER':U, 0, ?, '':U).   .   .   .

In addition to defining ADM-EXCLUDE-PROTOTYPES and ADM-EXCLUDE-STATIC, the thin rendering procedures define exclude-start-super-proc to exclude compilation of the start-super-proc internal procedure. Here is an example of a thin rendering procedure:

&GLOBAL-DEFINE ADM-EXCLUDE-PROTOTYPES &GLOBAL-DEFINE ADM-EXCLUDE-STATIC &SCOPED-DEFINE exclude-start-super-proc {adm2/dynsdo.w}